home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / CHECK.ICN < prev    next >
Text File  |  1990-04-01  |  7KB  |  160 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure dummy(u,v,x,y,z)
  4.    suspend u | v
  5.    return x
  6. end
  7.  
  8. procedure main()
  9.    write(&version)
  10.    System := \system
  11.    p1()
  12.    p2()
  13.    p3()
  14.    p4()
  15.    p5()
  16.    p6()
  17.    p7()
  18.    p8()
  19. end
  20.  
  21. procedure System(s)
  22.   write("system(",image(s),") not supported")
  23.   return 0
  24. end
  25.  
  26. procedure p1()
  27.    write("image(2) ----> ",image(image(2)) | "none")
  28.    write("image('cab') ----> ",image(image('cab')) | "none")
  29.    write("image(&lcase) ----> ",image(image(&lcase)) | "none")
  30.    write("image('abcdefghijklmnopqrstuvwxyz') ----> ",image(image('abcdefghijklmnopqrstuvwxyz')) | "none")
  31.    write("image(&input) ----> ",image(image(&input)) | "none")
  32.    write("image() ----> ",image(image()) | "none")
  33.    write("image(&null) ----> ",image(image(&null)) | "none")
  34.    write("image([1,2,3]) ----> ",image(image([1,2,3])) | "none")
  35.    write("image([]) ----> ",image(image([])) | "none")
  36.    write("image([,]) ----> ",image(image([,])) | "none")
  37.    write("image(table()) ----> ",image(image(table())) | "none")
  38.    write("image(table(3)) ----> ",image(image(table(3))) | "none")
  39.    write("image(list(0)) ----> ",image(image(list(0))) | "none")
  40.    write("image(repl) ----> ",image(image(repl)) | "none")
  41.    write("image(main) ----> ",image(image(main)) | "none")
  42.    write("image(repl(&lcase,10)) ----> ",image(image(repl(&lcase,10))) | "none")
  43.    write("image(array) ----> ",image(image(array)) | "none")
  44.    write("image(a) ----> ",image(image(a)) | "none")
  45.    write("image(array) ----> ",image(image(array)) | "none")
  46.    write("image(image) ----> ",image(image(image)) | "none")
  47. end
  48.  
  49. procedure p2()
  50.    write("integer(2) ----> ",image(integer(2)) | "none")
  51.    write("integer(\"2\") ----> ",image(integer("2")) | "none")
  52.    write("integer(\" 2\") ----> ",image(integer(" 2")) | "none")
  53.    write("integer(\"2 \") ----> ",image(integer("2 ")) | "none")
  54.    write("integer(\"+2\") ----> ",image(integer("+2")) | "none")
  55.    write("integer(\"-2\") ----> ",image(integer("-2")) | "none")
  56.    write("integer(\"- 2\") ----> ",image(integer("- 2")) | "none")
  57.    write("integer(\" -    2 \") ----> ",image(integer(" -    2 ")) | "none")
  58.    write("integer(\"\") ----> ",image(integer("")) | "none")
  59.    write("integer(\"--2\") ----> ",image(integer("--2")) | "none")
  60.    write("integer(\" \") ----> ",image(integer(" ")) | "none")
  61.    write("integer(\"-\") ----> ",image(integer("-")) | "none")
  62.    write("integer(\"+\") ----> ",image(integer("+")) | "none")
  63.    write("integer(\"7r4\") ----> ",image(integer("7r4")) | "none")
  64.    write("integer(\"4r7\") ----> ",image(integer("4r7")) | "none")
  65.    write("integer(\"4r 7\") ----> ",image(integer("4r 7")) | "none")
  66.    write("integer(\"7r 4\") ----> ",image(integer("7r 4")) | "none")
  67.    write("integer(\"16rff\") ----> ",image(integer("16rff")) | "none")
  68.    write("integer(\"36rcat\") ----> ",image(integer("36rcat")) | "none")
  69.    write("integer(\"36Rcat\") ----> ",image(integer("36Rcat")) | "none")
  70.    write("integer(\"36rCAT\") ----> ",image(integer("36rCAT")) | "none")
  71.    write("integer(\"1r1\") ----> ",image(integer("1r1")) | "none")
  72.    write("integer(\"2r0\") ----> ",image(integer("2r0")) | "none")
  73.    write("integer(integer) ----> ",image(integer(integer)) | "none")
  74.    write("integer := abs ----> ",image(integer := abs) | "none")
  75. end
  76.  
  77. procedure p3()
  78.    write("numeric(2) ----> ",image(numeric(2)) | "none")
  79.    write("numeric(\"2\") ----> ",image(numeric("2")) | "none")
  80.    write("numeric(\" 2\") ----> ",image(numeric(" 2")) | "none")
  81.    write("numeric(\"2 \") ----> ",image(numeric("2 ")) | "none")
  82.    write("numeric(\"+2\") ----> ",image(numeric("+2")) | "none")
  83.    write("numeric(\"-2\") ----> ",image(numeric("-2")) | "none")
  84.    write("numeric(\"- 2\") ----> ",image(numeric("- 2")) | "none")
  85.    write("numeric(\" -    2 \") ----> ",image(numeric(" -    2 ")) | "none")
  86.    write("numeric(\"\") ----> ",image(numeric("")) | "none")
  87.    write("numeric(\"--2\") ----> ",image(numeric("--2")) | "none")
  88.    write("numeric(\" \") ----> ",image(numeric(" ")) | "none")
  89.    write("numeric(\"-\") ----> ",image(numeric("-")) | "none")
  90.    write("numeric(\"+\") ----> ",image(numeric("+")) | "none")
  91.    write("numeric(\"7r4\") ----> ",image(numeric("7r4")) | "none")
  92.    write("numeric(\"4r7\") ----> ",image(numeric("4r7")) | "none")
  93.    write("numeric(\"4r 7\") ----> ",image(numeric("4r 7")) | "none")
  94.    write("numeric(\"7r 4\") ----> ",image(numeric("7r 4")) | "none")
  95.    write("numeric(\"16rff\") ----> ",image(numeric("16rff")) | "none")
  96.    write("numeric(\"36rcat\") ----> ",image(numeric("36rcat")) | "none")
  97.    write("numeric(\"36Rcat\") ----> ",image(numeric("36Rcat")) | "none")
  98.    write("numeric(\"36rCAT\") ----> ",image(numeric("36rCAT")) | "none")
  99.    write("numeric(\"1r1\") ----> ",image(numeric("1r1")) | "none")
  100.    write("numeric(\"2r0\") ----> ",image(numeric("2r0")) | "none")
  101. end
  102.  
  103. procedure p4()
  104. end
  105.  
  106. procedure p5()
  107.    write("numeric(2) ----> ",image(numeric(2)) | "none")
  108.    write("numeric(2) ----> ",image(numeric(2)) | "none")
  109.    write("numeric(+2) ----> ",image(numeric(+2)) | "none")
  110.    write("numeric(-2) ----> ",image(numeric(-2)) | "none")
  111.    write("numeric() ----> ",image(numeric()) | "none")
  112.    write("numeric(7r4) ----> ",image(numeric(7r4)) | "none")
  113.    write("numeric(16rff) ----> ",image(numeric(16rff)) | "none")
  114.    write("numeric(36rcat) ----> ",image(numeric(36rcat)) | "none")
  115.    write("numeric(36Rcat) ----> ",image(numeric(36Rcat)) | "none")
  116.    write("numeric(36rCAT) ----> ",image(numeric(36rCAT)) | "none")
  117.    write("numeric(2r0) ----> ",image(numeric(2r0)) | "none")
  118.    write("numeric(+-2) ----> ",image(numeric(+-2)) | "none")
  119.    write("numeric(++2) ----> ",image(numeric(++2)) | "none")
  120.    write("numeric(--2) ----> ",image(numeric(--2)) | "none")
  121. end
  122.  
  123. procedure p6()
  124.    write("every 1 to 10 do write(?0) ----> ",image(every 1 to 10 do write(?0)) | "none")
  125.    write("36 ^ -9 ----> ",image(36 ^ -9) | "none")
  126.    write("-36 ^ -9 ----> ",image(-36 ^ -9) | "none")
  127. end
  128.  
  129. procedure p7()
  130.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  131.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  132.    write("close(f) ----> ",image(close(f)) | "none")
  133.    write("system(\"rm foo.baz\") ----> ",image(System("rm foo.baz")) | "none")
  134. end
  135. procedure p8()
  136.    write(image(&ascii) | "failed")
  137.    write(image(&clock) | "failed")
  138.    write(image(&cset) | "failed")
  139.    write(image(&date) | "failed")
  140.    write(image(&dateline) | "failed")
  141.    write(image(&errout) | "failed")
  142.    write(image(&fail) | "failed")
  143.    write(image(&host) | "failed")
  144.    write(image(&input) | "failed")
  145.    write(image(&lcase) | "failed")
  146.    write(image(&level) | "failed")
  147.    write(image(&null) | "failed")
  148.    write(image(&output) | "failed")
  149.    write(image(&pos) | "failed")
  150.    write(image(&random) | "failed")
  151.    write(image(&subject) | "failed")
  152.    write(image(&time) | "failed")
  153.    write(image(&ucase) | "failed")
  154.    write(image(&version) | "failed")
  155.    write(image(System("echo 1")) | "failed")
  156.    write(image(System("ls -s check.icn")) | "failed")
  157.    write(image(System("test -r  no.file")) | "failed")
  158.    write(image(System("echo hello world")) | "failed")
  159. end
  160.